let _ = GMain.init ()

let create_menu () =
  let file_menu = GMenu.menu () in
  let item = GMenu.menu_item ~label:"Open" ~packing:file_menu#append
    () in
  item#connect#activate ~callback:begin fun () -> () end;
  let item = GMenu.menu_item ~label:"Save" ~packing:file_menu#append
    () in
  item#connect#activate ~callback:begin fun () -> () end;
  let item = GMenu.menu_item ~label:"Quit" ~packing:file_menu#append
    () in
  item#connect#activate ~callback:GMain.Main.quit;
  file_menu

let _ = 
  let window = GWindow.window 
    ~border_width:0
    ~width:800
    ~height:600
    ~title:"Virgo Terris" () in

  let vbox1 = GPack.vbox
    ~homogeneous:false
    ~border_width:0
    ~packing:window#add () in

  let file_menu = create_menu () in
  let menu_bar = GMenu.menu_bar ~packing:(vbox1#pack ~expand:false ~fill:false) () in
  let file_item = GMenu.menu_item ~label:"File" () in

  let image1 = GMisc.image
    ~packing:vbox1#add () in
  
  let hbuttonbox = GPack.button_box `HORIZONTAL
    ~layout:`SPREAD
    ~packing:(vbox1#pack ~expand:false ~fill:false) () in

  let button1 = GButton.button
    ~label:"Start"
    ~packing:hbuttonbox#add () in
  
  let button2 = GButton.button
    ~label:"< Before"
    ~packing:hbuttonbox#add () in

  let button3 = GButton.button
    ~label:"Next >"
    ~packing:hbuttonbox#add () in

  let button4 = GButton.button
    ~label:"Finish"
    ~packing:hbuttonbox#add () in

  let s_c = GBin.scrolled_window
    ~height:150
    ~packing:(vbox1#pack ~expand:false ~fill:false) () in
  begin
    file_item#set_submenu file_menu;
    menu_bar#append file_item;   
    window#show ();
    GMain.main ();
  end
